unit baseunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,datamUnit,gdata,nexcel;

type
  TbaseForm =class(TForm)
  private
    { Private declarations }
  protected
     fdlinfo:tdlinfo;
     book:ixlsworkbook;
  public
    constructor Create(AOwner: TComponent);override ;
    destructor Destroy; override;
  end;
var
  t:TbaseForm;
implementation
{$R *.dfm}

constructor TbaseForm.Create(AOwner: TComponent);
begin
inherited;
book:=TXLSWorkbook.Create;
fdlinfo:=dlinfo;
end;

destructor TbaseForm.Destroy;
begin
  book.Close;
  inherited;
end;
end.
